home *** CD-ROM | disk | FTP | other *** search
/ Aminet 38 / Aminet 38 (2000)(Schatztruhe)[!][Aug 2000].iso / Aminet / docs / help / arexxbegin.lha / ARexx_For_Beginners / Articles_01-10 / Example7-1a.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-12-14  |  449 b   |  31 lines
  1.   /* Example7-1a.rexx */
  2.  
  3.   /* This is Example7-1 rewritten with the use of a Function */
  4.  
  5.   CALL Display
  6.  
  7.   Name1 = Fred Bloggs
  8.   Name2 = 'Fred Bloggs'
  9.   Value1 = 2.35
  10.   Value2 = Value1 + 2.2
  11.  
  12.   CALL Display
  13.  
  14.   Name1 = 2.35
  15.   Name2 = Name1 + 2.2
  16.   Value1 = Fred Bloggs
  17.   Value2 = 'Fred Bloggs'
  18.  
  19.   CALL Display
  20.  
  21.   EXIT
  22.  
  23.   Display:
  24.  
  25.   SAY
  26.   SAY 'Name1  is ' Name1
  27.   SAY 'Name2  is ' Name2
  28.   SAY 'Value1 is ' Value1
  29.   SAY 'Value2 is ' Value2
  30.   RETURN
  31.